home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib08.dsk / SPEED SORT DEMO #2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  890b  |  30 lines
  1. 2  REM  TWO DIMENSIONS
  2. 5  DIM A$(4,2),S%(4)
  3. 10  DATA  CHURCH,TRUMBULL,06611
  4. 15  DATA  HARVEY,LINCOLN,01723
  5. 20  DATA  SMITH,FAIRFIELD,06430
  6. 25  DATA  ABLE,WESTPORT,06470
  7. 30  DATA  ZILCH,HARTFORD,06123
  8. 60  FOR R = 0 TO 4
  9. 70  FOR H = 0 TO 2
  10. 80  READ A$(R,H)
  11. 90  NEXT H,R
  12. 100 H = H -1:R = R -1
  13. 110 HI =  INT(R/256): POKE 965,HI
  14. 120 LO = (R/256 -HI) *256: POKE 964,LO
  15. 200  HOME 
  16. 210  VTAB 4: HTAB 8: PRINT "1 - NAME"
  17. 220  VTAB 6: HTAB 8: PRINT "2 - TOWN"
  18. 230  VTAB 8: HTAB 8: PRINT "3 - ZIP"
  19. 240  VTAB 12: HTAB 8: INPUT "SORT ON WHICH HEADER? ";Q$:Q =  VAL(Q$): IF Q <1  OR Q >3  THEN 200
  20. 250 Q = Q -1
  21. 255  HOME : PRINT "UNSORTED","SORTED": PRINT 
  22. 260  CALL  PEEK(175) + PEEK(176) *256 -261A$(0,Q),S%(0)
  23. 270  FOR R = 0 TO 4
  24. 280  FOR H = 0 TO 2
  25. 290  PRINT A$(R,H),A$(S%(R),H)
  26. 300  NEXT H
  27. 310  PRINT 
  28. 320  NEXT R
  29. 330  PRINT : PRINT "ANY KEY - ESC TO QUIT";: GET B$
  30. 340  IF  ASC(B$) < >27  THEN 200